## Stephen Moon
## Statistics Senior Thesis

DIME <- read.csv("dime_cong_elections_current.csv", head = T, as.is = T)
results <- read.csv("HouseElectionResults.csv", header = T, as.is = T)

#take just winners of primary elections
general <- subset(DIME, DIME$pwinner == "W")
#for now, take just house races
house <- subset(general, general$seat == "federal:house")